آخرین مطالب
امکانات وب
سلام
با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var cFieldName:string;
begin
cFieldName:= DBGrid1.Columns[Column.Index].FieldName;
Adoquery1.Sort:=cFieldName;
end;
راه دوم
var KindSotr1:Boolean;
if KindSotr1 then
datamodule3.customers.Sort:=Column.FieldName+' DESC'
else
datamodule3.customers.Sort:=Column.FieldName;
KindSotr1:=not(KindSotr1);
ما را در سایت برطرف نمودن خطای A previous program installation created pending file operations دنبال می کنید
برچسب : نویسنده : bmypedia3 بازدید : 300 تاريخ : سه شنبه 13 فروردين 1398 ساعت: 11:02
function IsNumber(N : String) : Boolean;
var
I : Integer;
begin
Result := True;
if Trim(N) = '' then
Exit(False);
if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then
Exit(False); برطرف نمودن خطای A previous program installation created pending file operations...
ما را در سایت برطرف نمودن خطای A previous program installation created pending file operations دنبال می کنید
برچسب : نویسنده : bmypedia3 بازدید : 255 تاريخ : سه شنبه 13 فروردين 1398 ساعت: 11:02